home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 8 / CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso / pc / mac / __intere / sfx_stac.k_4 / card_5053.txt < prev    next >
Text File  |  1989-08-01  |  23KB  |  952 lines
  1. -- card: 5053 from stack: in.k_4
  2. -- bmap block id: 2296
  3. -- flags: 4000
  4. -- background id: 2594
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global playWhat
  9.   set hilite of button ID 4 to TRUE
  10.   set hilite of button ID 5 to FALSE
  11.   set hilite of button ID 6 to FALSE
  12.   set hilite of button ID 7 to FALSE
  13.   set hilite of button ID 8 to FALSE
  14.   set hilite of button ID 9 to FALSE
  15.   set hilite of button ID 10 to FALSE
  16.   set hilite of button ID 11 to FALSE
  17.   set hilite of button ID 12 to FALSE
  18.   set hilite of button ID 13 to FALSE
  19.   set hilite of button ID 31 to FALSE
  20.   set hilite of button ID 32 to FALSE
  21.   set name of button id 29 to "?"
  22.   put "Beat" into playWhat
  23.   put quote before playWhat
  24.   put quote after playWhat
  25. end openCard
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=454 top=290 right=317 bottom=482
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 2162 / 2162
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 111111
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual effect scroll up
  43.   go to card 1
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=19 top=293 right=315 bottom=48
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 9301 / 9301
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: to 2
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   play "uuuh"
  63.   visual effect venetian blinds
  64.   go to card 3
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: 8006
  72. -- rect: left=106 top=190 right=212 bottom=213
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Beat It
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   global playWhat
  84.   set hilite of button ID 4 to true
  85.   set hilite of button ID 5 to FALSE
  86.   set hilite of button ID 6 to FALSE
  87.   set hilite of button ID 7 to FALSE
  88.   set hilite of button ID 8 to FALSE
  89.   set hilite of button ID 9 to FALSE
  90.   set hilite of button ID 10 to FALSE
  91.   set hilite of button ID 11 to FALSE
  92.   set hilite of button ID 12 to FALSE
  93.   set hilite of button ID 13 to FALSE
  94.   set hilite of button ID 31 to FALSE
  95.   set hilite of button ID 32 to FALSE
  96.   put "Beat" into playWhat
  97.   put quote before playWhat
  98.   put quote after playWhat
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 5 (button)
  104. -- low flags: 00
  105. -- high flags: 8006
  106. -- rect: left=106 top=212 right=234 bottom=213
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: HAL
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   global playWhat
  118.   set hilite of button ID 4 to FALSE
  119.   set hilite of button ID 5 to TRUE
  120.   set hilite of button ID 6 to FALSE
  121.   set hilite of button ID 7 to FALSE
  122.   set hilite of button ID 8 to FALSE
  123.   set hilite of button ID 9 to FALSE
  124.   set hilite of button ID 10 to FALSE
  125.   set hilite of button ID 11 to FALSE
  126.   set hilite of button ID 12 to FALSE
  127.   set hilite of button ID 13 to FALSE
  128.   set hilite of button ID 31 to FALSE
  129.   set hilite of button ID 32 to FALSE
  130.   put "HAL" into playWhat
  131.   put quote before playWhat
  132.   put quote after playWhat
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 6 (button)
  138. -- low flags: 00
  139. -- high flags: 8006
  140. -- rect: left=106 top=234 right=256 bottom=213
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Kirk Here
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   global playWhat
  152.   set hilite of button ID 4 to FALSE
  153.   set hilite of button ID 5 to FALSE
  154.   set hilite of button ID 6 to TRUE
  155.   set hilite of button ID 7 to FALSE
  156.   set hilite of button ID 8 to FALSE
  157.   set hilite of button ID 9 to FALSE
  158.   set hilite of button ID 10 to FALSE
  159.   set hilite of button ID 11 to FALSE
  160.   set hilite of button ID 12 to FALSE
  161.   set hilite of button ID 13 to FALSE
  162.   set hilite of button ID 31 to FALSE
  163.   set hilite of button ID 32 to FALSE
  164.   put "Kirk" into playWhat
  165.   put quote before playWhat
  166.   put quote after playWhat
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 7 (button)
  172. -- low flags: 00
  173. -- high flags: 8006
  174. -- rect: left=106 top=256 right=278 bottom=237
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Nasty Boys
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   global playWhat
  186.   set hilite of button ID 4 to FALSE
  187.   set hilite of button ID 5 to FALSE
  188.   set hilite of button ID 6 to FALSE
  189.   set hilite of button ID 7 to TRUE
  190.   set hilite of button ID 8 to FALSE
  191.   set hilite of button ID 9 to FALSE
  192.   set hilite of button ID 10 to FALSE
  193.   set hilite of button ID 11 to FALSE
  194.   set hilite of button ID 12 to FALSE
  195.   set hilite of button ID 13 to FALSE
  196.   set hilite of button ID 31 to FALSE
  197.   set hilite of button ID 32 to FALSE
  198.   put "NastyBoys" into playWhat
  199.   put quote before playWhat
  200.   put quote after playWhat
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 8 (button)
  206. -- low flags: 00
  207. -- high flags: 8006
  208. -- rect: left=106 top=278 right=298 bottom=237
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: No need to fear
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   global playWhat
  220.   set hilite of button ID 4 to FALSE
  221.   set hilite of button ID 5 to FALSE
  222.   set hilite of button ID 6 to FALSE
  223.   set hilite of button ID 7 to FALSE
  224.   set hilite of button ID 8 to TRUE
  225.   set hilite of button ID 9 to FALSE
  226.   set hilite of button ID 10 to FALSE
  227.   set hilite of button ID 11 to FALSE
  228.   set hilite of button ID 12 to FALSE
  229.   set hilite of button ID 13 to FALSE
  230.   set hilite of button ID 31 to FALSE
  231.   set hilite of button ID 32 to FALSE
  232.   put "Fear" into playWhat
  233.   put quote before playWhat
  234.   put quote after playWhat
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 9 (button)
  240. -- low flags: 00
  241. -- high flags: C006
  242. -- rect: left=277 top=188 right=210 bottom=421
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: Beep
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   global playWhat
  254.   set hilite of button ID 4 to FALSE
  255.   set hilite of button ID 5 to FALSE
  256.   set hilite of button ID 6 to FALSE
  257.   set hilite of button ID 7 to FALSE
  258.   set hilite of button ID 8 to FALSE
  259.   set hilite of button ID 9 to TRUE
  260.   set hilite of button ID 10 to FALSE
  261.   set hilite of button ID 11 to FALSE
  262.   set hilite of button ID 12 to FALSE
  263.   set hilite of button ID 13 to FALSE
  264.   set hilite of button ID 31 to FALSE
  265.   set hilite of button ID 32 to FALSE
  266.   put "Beeep" into playWhat
  267.   put quote before playWhat
  268.   put quote after playWhat
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 10 (button)
  274. -- low flags: 00
  275. -- high flags: 8006
  276. -- rect: left=277 top=210 right=232 bottom=421
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: He's dead Jim
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   global playWhat
  288.   set hilite of button ID 4 to FALSE
  289.   set hilite of button ID 5 to FALSE
  290.   set hilite of button ID 6 to FALSE
  291.   set hilite of button ID 7 to FALSE
  292.   set hilite of button ID 8 to FALSE
  293.   set hilite of button ID 9 to FALSE
  294.   set hilite of button ID 10 to TRUE
  295.   set hilite of button ID 11 to FALSE
  296.   set hilite of button ID 12 to FALSE
  297.   set hilite of button ID 13 to FALSE
  298.   set hilite of button ID 31 to FALSE
  299.   set hilite of button ID 32 to FALSE
  300.   put "Dead" into playWhat
  301.   put quote before playWhat
  302.   put quote after playWhat
  303. end mouseUp
  304.  
  305.  
  306.  
  307. -- part 11 (button)
  308. -- low flags: 00
  309. -- high flags: 8006
  310. -- rect: left=277 top=232 right=254 bottom=421
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: Nasty
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   global playWhat
  322.   set hilite of button ID 4 to FALSE
  323.   set hilite of button ID 5 to FALSE
  324.   set hilite of button ID 6 to FALSE
  325.   set hilite of button ID 7 to FALSE
  326.   set hilite of button ID 8 to FALSE
  327.   set hilite of button ID 9 to FALSE
  328.   set hilite of button ID 10 to FALSE
  329.   set hilite of button ID 11 to TRUE
  330.   set hilite of button ID 12 to FALSE
  331.   set hilite of button ID 13 to FALSE
  332.   set hilite of button ID 31 to FALSE
  333.   set hilite of button ID 32 to FALSE
  334.   put "Nasty" into playWhat
  335.   put quote before playWhat
  336.   put quote after playWhat
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 12 (button)
  342. -- low flags: 00
  343. -- high flags: 8006
  344. -- rect: left=277 top=254 right=276 bottom=420
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Over the Rainbow
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   global playWhat
  356.   set hilite of button ID 4 to FALSE
  357.   set hilite of button ID 5 to FALSE
  358.   set hilite of button ID 6 to FALSE
  359.   set hilite of button ID 7 to FALSE
  360.   set hilite of button ID 8 to FALSE
  361.   set hilite of button ID 9 to FALSE
  362.   set hilite of button ID 10 to FALSE
  363.   set hilite of button ID 11 to FALSE
  364.   set hilite of button ID 12 to TRUE
  365.   set hilite of button ID 13 to FALSE
  366.   set hilite of button ID 31 to FALSE
  367.   set hilite of button ID 32 to FALSE
  368.   put "Rainbow" into playWhat
  369.   put quote before playWhat
  370.   put quote after playWhat
  371. end mouseUp
  372.  
  373.  
  374.  
  375. -- part 13 (button)
  376. -- low flags: 00
  377. -- high flags: 8006
  378. -- rect: left=277 top=276 right=297 bottom=420
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 1
  382. -- font id: 0
  383. -- text size: 12
  384. -- style flags: 0
  385. -- line height: 16
  386. -- part name: Underdog is here
  387. ----- HyperTalk script -----
  388. on mouseUp
  389.   global playWhat
  390.   set hilite of button ID 4 to FALSE
  391.   set hilite of button ID 5 to FALSE
  392.   set hilite of button ID 6 to FALSE
  393.   set hilite of button ID 7 to FALSE
  394.   set hilite of button ID 8 to FALSE
  395.   set hilite of button ID 9 to FALSE
  396.   set hilite of button ID 10 to FALSE
  397.   set hilite of button ID 11 to FALSE
  398.   set hilite of button ID 12 to FALSE
  399.   set hilite of button ID 13 to TRUE
  400.   set hilite of button ID 31 to FALSE
  401.   set hilite of button ID 32 to FALSE
  402.   put "Here" into playWhat
  403.   put quote before playWhat
  404.   put quote after playWhat
  405. end mouseUp
  406.  
  407.  
  408.  
  409. -- part 15 (button)
  410. -- low flags: 00
  411. -- high flags: A004
  412. -- rect: left=39 top=46 right=69 bottom=169
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 0 / 0
  415. -- text alignment: 1
  416. -- font id: 0
  417. -- text size: 12
  418. -- style flags: 0
  419. -- line height: 16
  420. -- part name: Volga Boatman
  421. ----- HyperTalk script -----
  422. on mouseUp
  423.   global playWhat
  424.   put playWhat into cmd
  425.   put "play" before cmd
  426.   put cmd into temp
  427.   put "tempo 50 c4e a3 d4q a3h" into foist
  428.   put "tempo 50 c4q f ee fs es dq" into sexond
  429.   put temp && foist into doit
  430.   do doit
  431.   do doit
  432.   put temp && sexond into doit
  433.   do doit
  434.   put temp && foist into doit
  435.   do doit
  436. end mouseUp
  437.  
  438.  
  439.  
  440. -- part 16 (button)
  441. -- low flags: 00
  442. -- high flags: A004
  443. -- rect: left=39 top=71 right=93 bottom=170
  444. -- title width / last selected line: 0
  445. -- icon id / first selected line: 0 / 0
  446. -- text alignment: 1
  447. -- font id: 0
  448. -- text size: 12
  449. -- style flags: 0
  450. -- line height: 16
  451. -- part name: Three Blind Mice
  452. ----- HyperTalk script -----
  453. on mouseUp
  454.   global playWhat
  455.   put playWhat into cmd
  456.   put "play" before cmd
  457.   put cmd into temp
  458.   put "tempo 180 e4q d ch" into foist
  459.   put "tempo 180 g4q fe. fs eh" into sexond
  460.   put "tempo 180 g4s c5e. cs b4e3 a b c5e. g4s ge. gs" into thoid
  461.   put temp && foist into doit
  462.   do doit
  463.   do doit
  464.   put temp && sexond into doit
  465.   do doit
  466.   do doit
  467.   put temp && thoid into doit
  468.   do doit
  469.   do doit
  470.   do doit
  471.   put temp && foist into doit
  472.   do doit
  473.   do doit
  474. end mouseUp
  475.  
  476.  
  477.  
  478. -- part 17 (button)
  479. -- low flags: 00
  480. -- high flags: A004
  481. -- rect: left=39 top=95 right=117 bottom=170
  482. -- title width / last selected line: 0
  483. -- icon id / first selected line: 0 / 0
  484. -- text alignment: 1
  485. -- font id: 0
  486. -- text size: 12
  487. -- style flags: 0
  488. -- line height: 16
  489. -- part name: Sleigh Ride
  490. ----- HyperTalk script -----
  491. on mouseUp
  492.   global playWhat
  493.   put playWhat into cmd
  494.   put "play" before cmd
  495.   put cmd into temp
  496.   put "tempo 140 g4e g g g a gs e ce d e ds b3s ae gh" into foist
  497.   put temp && foist into doit
  498.   do doit
  499. end mouseUp
  500.  
  501.  
  502.  
  503. -- part 18 (button)
  504. -- low flags: 00
  505. -- high flags: A004
  506. -- rect: left=39 top=120 right=142 bottom=170
  507. -- title width / last selected line: 0
  508. -- icon id / first selected line: 0 / 0
  509. -- text alignment: 1
  510. -- font id: 0
  511. -- text size: 12
  512. -- style flags: 0
  513. -- line height: 16
  514. -- part name: Nachtmusik
  515. ----- HyperTalk script -----
  516. on mouseUp
  517.   global playWhat
  518.   put playWhat into cmd
  519.   put "play" before cmd
  520.   put cmd into temp
  521.   put "tempo 120 c4q. g3e c4q. g3e c4e g3 c4 e gh" into foist
  522.   put "tempo 120 f4q. de fq. de f d b3 d4 g3h" into sexond
  523.   put temp && foist into doit
  524.   do doit
  525.   put temp && sexond into doit
  526.   do doit
  527. end mouseUp
  528.  
  529.  
  530.  
  531. -- part 19 (button)
  532. -- low flags: 00
  533. -- high flags: A004
  534. -- rect: left=40 top=145 right=167 bottom=171
  535. -- title width / last selected line: 0
  536. -- icon id / first selected line: 0 / 0
  537. -- text alignment: 1
  538. -- font id: 0
  539. -- text size: 12
  540. -- style flags: 0
  541. -- line height: 16
  542. -- part name: Star Trek
  543. ----- HyperTalk script -----
  544. on mouseUp
  545.   global playWhat
  546.   put playWhat into cmd
  547.   put "play" before cmd
  548.   put cmd into temp
  549.   put "tempo 140 g3h f4h. eq dq3 c b3 a#w" into foist
  550.   put "tempo 140 a3q gh g4h. fq eq3 d c b3w" into sexond
  551.   put temp && foist into doit
  552.   do doit
  553.   put temp && sexond into doit
  554.   play "silence" tempo 140 ch.
  555.   do doit
  556. end mouseUp
  557.  
  558.  
  559.  
  560. -- part 20 (button)
  561. -- low flags: 00
  562. -- high flags: A004
  563. -- rect: left=176 top=46 right=69 bottom=306
  564. -- title width / last selected line: 0
  565. -- icon id / first selected line: 0 / 0
  566. -- text alignment: 1
  567. -- font id: 0
  568. -- text size: 12
  569. -- style flags: 0
  570. -- line height: 16
  571. -- part name: Row, Row
  572. ----- HyperTalk script -----
  573. on mouseUp
  574.   global playWhat
  575.   put playWhat into cmd
  576.   put "play" before cmd
  577.   put cmd into temp
  578.   put "tempo 120 c4q c ce. ds eq ee. ds ee. fs gh" into foist
  579.   put "tempo 120 c5e3 c c g4 g g e e e c c c ge. fs ee. ds ch" into sexond
  580.   put temp && foist into doit
  581.   do doit
  582.   put temp && sexond into doit
  583.   do doit
  584. end mouseUp
  585.  
  586.  
  587.  
  588. -- part 21 (button)
  589. -- low flags: 00
  590. -- high flags: A004
  591. -- rect: left=176 top=70 right=93 bottom=306
  592. -- title width / last selected line: 0
  593. -- icon id / first selected line: 0 / 0
  594. -- text alignment: 1
  595. -- font id: 0
  596. -- text size: 12
  597. -- style flags: 0
  598. -- line height: 16
  599. -- part name: Jingle Bells
  600. ----- HyperTalk script -----
  601. on mouseUp
  602.   global playWhat
  603.   put playWhat into cmd
  604.   put "play" before cmd
  605.   put cmd into temp
  606.   put "tempo 120 e4e e eq ee e eq" into foist
  607.   put "tempo 120 e4e g ce. ds eh" into sexond
  608.   put temp && foist into doit
  609.   do doit
  610.   put temp && sexond into doit
  611.   do doit
  612. end mouseUp
  613.  
  614.  
  615.  
  616. -- part 22 (button)
  617. -- low flags: 00
  618. -- high flags: A004
  619. -- rect: left=176 top=95 right=118 bottom=306
  620. -- title width / last selected line: 0
  621. -- icon id / first selected line: 0 / 0
  622. -- text alignment: 1
  623. -- font id: 0
  624. -- text size: 12
  625. -- style flags: 0
  626. -- line height: 16
  627. -- part name: SS Banner
  628. ----- HyperTalk script -----
  629. on mouseUp
  630.   global playWhat
  631.   put playWhat into cmd
  632.   put "play" before cmd
  633.   put cmd into temp
  634.   put "tempo 80 g4e. es cq e g c5h" into foist
  635.   put "tempo 80 e5e. ds cq e4 f# gh" into sexond
  636.   put temp && foist into doit
  637.   do doit
  638.   put temp && sexond into doit
  639.   do doit
  640. end mouseUp
  641.  
  642.  
  643.  
  644. -- part 23 (button)
  645. -- low flags: 00
  646. -- high flags: A004
  647. -- rect: left=176 top=120 right=143 bottom=306
  648. -- title width / last selected line: 0
  649. -- icon id / first selected line: 0 / 0
  650. -- text alignment: 1
  651. -- font id: 0
  652. -- text size: 12
  653. -- style flags: 0
  654. -- line height: 16
  655. -- part name: Mozart 40
  656. ----- HyperTalk script -----
  657. on mouseUp
  658.   global playWhat
  659.   put playWhat into cmd
  660.   put "play" before cmd
  661.   put cmd into temp
  662.   put "tempo 200 c#4e c cq c#e c cq c#e c cq g#h" into foist
  663.   put "tempo 200 g#4e g fq fe d# c#q c#e c a#3q a#h" into sexond
  664.   put temp && foist into doit
  665.   do doit
  666.   put temp && sexond into doit
  667.   do doit
  668. end mouseUp
  669.  
  670.  
  671.  
  672. -- part 24 (button)
  673. -- low flags: 00
  674. -- high flags: A004
  675. -- rect: left=176 top=144 right=167 bottom=306
  676. -- title width / last selected line: 0
  677. -- icon id / first selected line: 0 / 0
  678. -- text alignment: 1
  679. -- font id: 0
  680. -- text size: 12
  681. -- style flags: 0
  682. -- line height: 16
  683. -- part name: Happy Birthday
  684. ----- HyperTalk script -----
  685. on mouseUp
  686.   global playWhat
  687.   put playWhat into cmd
  688.   put "play" before cmd
  689.   put cmd into temp
  690.   put "tempo 110 g3e. gs aq g c4 b3h g3e. gs aq g d4 ch" into foist
  691.   put "tempo 110 g3e. gs g4q e c b3 ah f4e. fs eq c d ch." into sexond
  692.   put temp && foist into doit
  693.   do doit
  694.   put temp && sexond into doit
  695.   do doit
  696. end mouseUp
  697.  
  698.  
  699.  
  700. -- part 25 (button)
  701. -- low flags: 00
  702. -- high flags: A004
  703. -- rect: left=310 top=46 right=69 bottom=440
  704. -- title width / last selected line: 0
  705. -- icon id / first selected line: 0 / 0
  706. -- text alignment: 1
  707. -- font id: 0
  708. -- text size: 12
  709. -- style flags: 0
  710. -- line height: 16
  711. -- part name: Johnny
  712. ----- HyperTalk script -----
  713. on mouseUp
  714.   set hilite of button 23 to TRUE
  715.   global playWhat
  716.   put playWhat into cmd
  717.   put "play" before cmd
  718.   put cmd into temp
  719.   put "tempo 360 g3q c4 c c ch dq d#h dq d#h cq a#3w" into foist
  720.   put "tempo 360 g3q a#w." into sexond
  721.   put temp && foist into doit
  722.   do doit
  723.   put temp && sexond into doit
  724.   play "silence" tempo 360 cq
  725.   do doit
  726.   wait until the sound is "done"
  727.   set hilite of button 23 to FALSE
  728. end mouseUp
  729.  
  730.  
  731.  
  732. -- part 26 (button)
  733. -- low flags: 00
  734. -- high flags: A004
  735. -- rect: left=310 top=70 right=93 bottom=440
  736. -- title width / last selected line: 0
  737. -- icon id / first selected line: 0 / 0
  738. -- text alignment: 1
  739. -- font id: 0
  740. -- text size: 12
  741. -- style flags: 0
  742. -- line height: 16
  743. -- part name: Fate
  744. ----- HyperTalk script -----
  745. on mouseUp
  746.   global playWhat
  747.   put playWhat into cmd
  748.   put "play" before cmd
  749.   put cmd into temp
  750.   put "tempo 80 g4s g g d#h" into foist
  751.   put "tempo 80 fs f f dh" into sexond
  752.   put temp && foist into doit
  753.   do doit
  754.   put temp && sexond into doit
  755.   do doit
  756. end mouseUp
  757.  
  758.  
  759.  
  760. -- part 27 (button)
  761. -- low flags: 00
  762. -- high flags: A004
  763. -- rect: left=310 top=95 right=118 bottom=440
  764. -- title width / last selected line: 0
  765. -- icon id / first selected line: 0 / 0
  766. -- text alignment: 1
  767. -- font id: 0
  768. -- text size: 12
  769. -- style flags: 0
  770. -- line height: 16
  771. -- part name: Frére Jacques
  772. ----- HyperTalk script -----
  773. on mouseUp
  774.   global playWhat
  775.   put playWhat into cmd
  776.   put "play" before cmd
  777.   put cmd into temp
  778.   put "tempo 80 c4e d e c c d e c e f gq ee f gq" into foist
  779.   put "tempo 80 g4s a g f ee c gs a g f ee c c g3 c4q ce g3 c4q" into sexond
  780.   put temp && foist into doit
  781.   do doit
  782.   put temp && sexond into doit
  783.   do doit
  784. end mouseUp
  785.  
  786.  
  787.  
  788. -- part 28 (button)
  789. -- low flags: 00
  790. -- high flags: A004
  791. -- rect: left=310 top=120 right=143 bottom=440
  792. -- title width / last selected line: 0
  793. -- icon id / first selected line: 0 / 0
  794. -- text alignment: 1
  795. -- font id: 0
  796. -- text size: 12
  797. -- style flags: 0
  798. -- line height: 16
  799. -- part name: Fast scale
  800. ----- HyperTalk script -----
  801. on mouseUp
  802.   global playWhat
  803.   put playWhat into cmd
  804.   put "play" before cmd
  805.   put cmd into temp
  806.   put "tempo 200 ce d e f g a b c5 d e f g a b" into foist
  807.   put "tempo 200 c6e b5 a g f e d c b4 a g f e d cw" into sexond
  808.   put temp && foist into doit
  809.   do doit
  810.   put temp && sexond into doit
  811.   do doit
  812. end mouseUp
  813.  
  814.  
  815.  
  816. -- part 29 (button)
  817. -- low flags: 00
  818. -- high flags: A004
  819. -- rect: left=310 top=144 right=167 bottom=440
  820. -- title width / last selected line: 0
  821. -- icon id / first selected line: 0 / 0
  822. -- text alignment: 1
  823. -- font id: 0
  824. -- text size: 12
  825. -- style flags: 0
  826. -- line height: 16
  827. -- part name: ?
  828. ----- HyperTalk script -----
  829. on mouseUp
  830.   answer "This button doesn't do anything." with "Bummer"
  831.   put 2 into keeptrack
  832.   repeat 10 times
  833.     add 1 to keeptrack
  834.     set hilite of button keeptrack to TRUE
  835.   end repeat
  836.   set hilite of button id 31 to TRUE
  837.   set hilite of button id 32 to TRUE
  838.   get the name of button 27
  839.   put word 3 of it into temp
  840.   if char 2 of temp is "?" then set name of button 27 to "Oops..."
  841.   else set name of button 27 to "?"
  842. end mouseUp
  843.  
  844.  
  845.  
  846. -- part 30 (button)
  847. -- low flags: 00
  848. -- high flags: A004
  849. -- rect: left=23 top=219 right=260 bottom=71
  850. -- title width / last selected line: 0
  851. -- icon id / first selected line: 0 / 0
  852. -- text alignment: 1
  853. -- font id: 0
  854. -- text size: 12
  855. -- style flags: 0
  856. -- line height: 16
  857. -- part name: Keys
  858. ----- HyperTalk script -----
  859. on mouseUp
  860.   visual effect barn door close
  861.   go to card 3
  862. end mouseUp
  863.  
  864.  
  865.  
  866. -- part 31 (button)
  867. -- low flags: 00
  868. -- high flags: 8006
  869. -- rect: left=106 top=298 right=318 bottom=237
  870. -- title width / last selected line: 0
  871. -- icon id / first selected line: 0 / 0
  872. -- text alignment: 1
  873. -- font id: 0
  874. -- text size: 12
  875. -- style flags: 0
  876. -- line height: 16
  877. -- part name: Thunder
  878. ----- HyperTalk script -----
  879. on mouseUp
  880.   global playWhat
  881.   set hilite of button ID 4 to FALSE
  882.   set hilite of button ID 5 to FALSE
  883.   set hilite of button ID 6 to FALSE
  884.   set hilite of button ID 7 to FALSE
  885.   set hilite of button ID 8 to FALSE
  886.   set hilite of button ID 9 to FALSE
  887.   set hilite of button ID 10 to FALSE
  888.   set hilite of button ID 11 to FALSE
  889.   set hilite of button ID 12 to FALSE
  890.   set hilite of button ID 13 to FALSE
  891.   set hilite of button ID 31 to TRUE
  892.   set hilite of button ID 32 to FALSE
  893.   put "Thunder" into playWhat
  894.   put quote before playWhat
  895.   put quote after playWhat
  896. end mouseUp
  897.  
  898.  
  899.  
  900. -- part 32 (button)
  901. -- low flags: 00
  902. -- high flags: 8006
  903. -- rect: left=277 top=296 right=317 bottom=420
  904. -- title width / last selected line: 0
  905. -- icon id / first selected line: 0 / 0
  906. -- text alignment: 1
  907. -- font id: 0
  908. -- text size: 12
  909. -- style flags: 0
  910. -- line height: 16
  911. -- part name: Yabba Dabba Doo
  912. ----- HyperTalk script -----
  913. on mouseUp
  914.   global playWhat
  915.   set hilite of button ID 4 to FALSE
  916.   set hilite of button ID 5 to FALSE
  917.   set hilite of button ID 6 to FALSE
  918.   set hilite of button ID 7 to FALSE
  919.   set hilite of button ID 8 to FALSE
  920.   set hilite of button ID 9 to FALSE
  921.   set hilite of button ID 10 to FALSE
  922.   set hilite of button ID 11 to FALSE
  923.   set hilite of button ID 12 to FALSE
  924.   set hilite of button ID 13 to FALSE
  925.   set hilite of button ID 31 to FALSE
  926.   set hilite of button ID 32 to TRUE
  927.   put "Yabba" into playWhat
  928.   put quote before playWhat
  929.   put quote after playWhat
  930. end mouseUp
  931.  
  932.  
  933.  
  934. -- part 33 (button)
  935. -- low flags: 00
  936. -- high flags: 2000
  937. -- rect: left=450 top=192 right=213 bottom=484
  938. -- title width / last selected line: 0
  939. -- icon id / first selected line: 19678 / 19678
  940. -- text alignment: 1
  941. -- font id: 0
  942. -- text size: 12
  943. -- style flags: 0
  944. -- line height: 16
  945. -- part name: ?
  946. ----- HyperTalk script -----
  947. on mouseUp
  948.   visual dissolve
  949.   go to card 2
  950. end mouseUp
  951.  
  952.